50 DV=PEEK(186):IFDV<8ORDV>15THENDV=8
60 SYS57812"CAL ML",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
70 POKE56,60:CLR:POKE788,52
80 DV=PEEK(186):IFDV<8ORDV>15THENDV=8
90 DIMM(365),MN$(11)
100 DEF FN LB(X)=X-(INT(X/256)*256):DEF FN HB(X)=INT(X/256)
110 GOSUB1000:SYS ML+33:DN=0:GOSUB5500:GOSUB5400:DN=1:GOSUB1200:GOSUB1350
130 GETA$:IFA$=""THENGOSUB1300:CH=CH+1:GOTO160
135 IFA$="[145]"THENGOSUB1300:CH=CH-1:GOTO160
140 IFA$="[157]"THENGOSUB3500:GOTO130
143 IFA$=""THENGOSUB3000:GOTO130
145 IFA$=" "ORA$=CHR$(13)THEN200
150 GOTO130
160 IFCH=0THENCH=14
170 IFCH>14THENCH=1
180 GOSUB1350
190 GOTO130
200 IFCH=16THEN900
205 IFCH>8THEN220
210 ONCHGOSUB5000,5100,5200,5300,5500,5400,8500,8000:GOTO130
220 ONCH-8GOSUB6000,7000,9000,8100,8200,900:GOTO130
899 REM END
900 IFEM=1THENGOSUB1700:IFA$="[206]"ORA$="N"THEN130
910 POKE788,49:GOTO40000
999 REM INIT VARS
1000 POKE53280,0:POKE53281,0:PRINT"[147][154]"
1010 ML=49152:MV=16750:PD=4:CH=1:D=1:Y=1993:M=1:EM=0
1020 FORX=0TO365:M(X)=0:NEXT
1030 MN$(0)="[202]ANUARY":MN$(1)="[198]EBRUARY":MN$(2)="[205]ARCH":MN$(3)="[193]PRIL"
1040 MN$(4)="[205]AY":MN$(5)="[202]UNE":MN$(6)="[202]ULY":MN$(7)="[193]UGUST"
1050 MN$(8)="[211]EPTEMBER":MN$(9)="[207]CTOBER":MN$(10)="[206]OVEMBER":MN$(11)="[196]ECEMBER"
1090 RETURN
1099 REM SET YY & MM TO NEXT MONTH
1100 IFM<12THENMM=M+1:YY=Y:RETURN
1110 MM=1:YY=Y+1:IFYY=2100THENYY=1901
1120 RETURN
1149 REM SET YY & MM TO PRIOR MONTH
1150 IFM>1THENMM=M-1:YY=Y:RETURN
1160 MM=12:YY=Y-1:IFYY=1900THENYY=2099
1170 RETURN
1199 REM MAIN SCREEN
1200 POKEMV,3:POKEMV+1,22:POKEMV+2,0:POKEMV+3,1:POKEMV+4,6:POKEMV+5,14:SYSML+9
1220 PRINT"[154] [157][211][157][212][157][193][157][210][157] [157][195][157][193][157][204][157][197][157][206][157][196][157][193][157][210][157] ";
1225 POKEMV,13:POKEMV+1,10:POKEMV+2,27:POKEMV+3,0:POKEMV+4,6:POKEMV+5,14
1230 POKE646,14:SYS ML+9:A$(0)=" [206]EXT [205]ONTH":A$(1)=" [208]REV [205]ONTH"
1235 A$(2)=" [206]EXT [217]EAR ":A$(3)=" [208]REV [217]EAR ":A$(5)=" [211]ET [205]ONTH "
1237 A$(4)=" [211]ET [217]EAR  "
1240 A$(6)=" [211]ET [196]ATE  ":A$(7)=" [197]DIT [196]ATE ":PRINT""
1250 FORX=0TO7:PRINTTAB(28)""A$(X):NEXT
1255 POKEMV,13:POKEMV+1,8:POKEMV+2,27:POKEMV+3,15:POKEMV+4,6:POKEMV+5,14
1260 SYS ML+9:A$(0)=" [204]OAD [217]EAR ":A$(1)=" [211]AVE [217]EAR ":A$(2)=" [208]RINT [195]AL "
1265 A$(3)=" [208]RINTER"+STR$(PD)
1270 A$(4)=" [196]RIVE "+STR$(DV)
1275 A$(5)=" [209]UIT     "
1280 POKE214,15:PRINT:FORX=0TO5:PRINTTAB(28)""A$(X):NEXT
1285 POKEMV,35:POKEMV+1,4:POKEMV+2,4:POKEMV+3,11:POKEMV+4,14:POKEMV+5,15
1290 SYS ML+15
1291 IFZ6THEN1400
1292 POKE214,11:PRINT:PRINTTAB(8)"[155][195][210][211][210] [213][208]/[196][207][215][206] - [205]OVE [195]URSOR
1293 [153][163]7)"LEN(null)(null)(null) (null)RIGHT$CHR$LEFT$(null)/(null)VALASC(null) - LENHANGE STR$AY":Z7[178]0:Z6[178]1
1294 Z7[178]Z7[170]1:[161]A$:[139]A$[178]""[175]Z7[179]400[167]1294
1295 [137]1400
1299 [143] UNHGHLT SEL
1300 [151]MV,CH:[151]MV[170]1,14:[158] ML[170]12:[142]
1349 [143] HGHLT SEL
1350 [151]MV,CH:[151]MV[170]1,15:[158] ML[170]12:[142]
1399 RM PUT 2 M[145]THS [145] SCR
1400 [139]DN[178]0[167][142]
1403 X[178]0:[139]Y[178]EY[167]X[178]1
1405 [151]MV,22:[151]MV[170]1,10:[151]MV[170]2,4:[151]MV[170]3,0:[151]MV[170]4,3:[151]MV[170]5,3:[158] ML[170]9
1410 [151]646,3:[151]MV,[165] LB(Y):[151]MV[170]1,[165] HB(Y):[151]MV[170]3,M:[151]MV[170]4,1
1415 [151]MV[170]6,X:[158] ML
1420 [151]MV,22:[151]MV[170]1,10:[151]MV[170]2,4:[151]MV[170]3,15:[151]MV[170]4,13:[151]MV[170]5,13
1430 [158] ML[170]9:[141]1100:[151]646,13
1440 [151]MV,[165] LB(YY):[151]MV[170]1,[165] HB(YY):[151]MV[170]3,MM:[151]MV[170]4,16
1445 X[178]0:[139]YY[178]EY[167]X[178]1
1450 [151]MV[170]6,X:[158] ML
1460 [137]1600
1499 [143] GET NUMBER @ (PX,PY)
1500 DT[178]0:NG[178]0
1505 [151]214,PY:[151]211,PX:[153]"ON";:C[178]0:B$[178]"":[151]204,0
1510 [161]A$:[139]A$[178]""[167]1510
1515 [139]A$[179][177][199](20)[167]1540
1520 [139]C[179][178]0[167]1510
1525 [139][202](B$,C,1)[178]"."[167]DT[178]0
1530 C[178]C[171]1:B$[178][200](B$,C):[151]214,PY:[151]211,PX:[153]"ON";:[153]B$"  CMDCMD";
1535 [137]1510
1540 [139](A$[177][178]"0"[175]A$[179][178]"9")[167]1570
1550 [139][168](A$[178]"-"[175]C[178]0[175][168]NG)[175]A$[179][177][199](13)[175][168](A$[178]"."[175][168]DT)[167]1510
1560 [139]A$[178][199](13)[167]1590
1570 [139]C[179]LN[167][153]A$;:B$[178]B$[170]A$:C[178]C[170]1:[139]A$[178]"."[167]DT[178][171]1
1580 [137]1510
1590 [151]204,1:[142]
1599 [143] PRINT DATE HEADER & APP. INFO.
1600 [151]646,14:[151]MV,[165] LB(Y):[151]MV[170]1,[165] HB(Y):[151]MV[170]3,M:[151]MV[170]5,D
1610 [151]199,1:[158] ML[170]18:[151]199,0
1620 [151]MV,[165] LB(Y):[151]MV[170]1,[165] HB(Y):[151]MV[170]3,M:[151]MV[170]5,D:[151]646,15
1630 [139]Y[178]EY[167][158] ML[170]30:[142]
1640 [158] ML[170]39:[142]
1699 [143] CHANGE IN UNSAVED YEAR PROMPT
1700 [151]204,1:[151]646,7:[158] ML[170]3:[151]214,10:[153]
1710 [153][163]11)"LIST(null)EAR"EY"(null)ODIFIED":[153][163]11)"LENHANGES NOT SAVED!"
1720 [153][163]13)"LENONTINUE? (YLIST/NLIST)"
1730 [161]A$:[139]A$[179][177]"(null)"[175]A$[179][177]"Y"[175]A$[179][177]"(null)"[175]A$[179][177]"N"[167]1730
1740 [158] ML[170]6:[142]
2999 [143] NEXT DAY
3000 D[178]D[170]1:[139]D[179]29[167]3040
3010 [151]MV,[165] LB(Y):[151]MV[170]1,[165] HB(Y):[151]MV[170]3,M:[158] ML[170]21:X[178][194](780)
3020 [139]D[179][178]X[167]3040
3030 D[178]1
3040 [151]MV,[165] LB(Y):[151]MV[170]1,[165] HB(Y):[151]MV[170]3,M:[151]MV[170]5,D
3050 [137]1600
3499 [143] PREV DAY
3500 D[178]D[171]1:[139]D[177]0[167]3040
3510 [151]MV,[165] LB(Y):[151]MV[170]1,[165] HB(Y):[151]MV[170]3,M:[158] ML[170]21:D[178][194](780)
3520 [137]3040
4999 [143] NEXT MONTH
5000 [141]1100:Y[178]YY:M[178]MM:D[178]1:[137]1400
5099 [143] PREV MONTH
5100 [141]1150:Y[178]YY:M[178]MM:D[178]1:[137]1400
5199 [143] NEXT YEAR
5200 Y[178]Y[170]1:D[178]1:[139]Y[178]2100[167]Y[178]1901
5210 [137]1400
5299 [143] PREV YEAR
5300 Y[178]Y[171]1:D[178]1:[139]Y[178]1900[167]Y[178]2099
5310 [137]1400
5399 [143] SET MONTH
5400 [151]204,1:[151]646,7:[158] ML[170]3:[151]214,11:[153]
5410 [153][163]13)"LIST(null)ONTH (1-12LIST):   ":PY[178]12:PX[178]26:LN[178]2:DT[178][171]1:NG[178][171]1
5420 [141]1505:X[178][181]([197](B$)):[158] ML[170]6
5430 [139]X[179]1[176]X[177]12[167][142]
5440 M[178]X:D[178]1:[137]1400
5499 [143] SET YEAR
5500 [151]204,1:[151]646,7:[158] ML[170]3:[151]214,11:[153]
5510 [153][163]13)"LISTVALNTER (null)EAR:     ":PY[178]12:PX[178]24:LN[178]4:DT[178][171]1:NG[178][171]1
5515 [153][163]13)"(1901-2099LIST)"
5520 [141]1505:X[178][181]([197](B$)):[158] ML[170]6
5530 [139]X[179]1901[176]X[177]2099[167][142]
5540 Y[178]X:D[178]1:[137]1400
5999 [143] LOAD YEAR
6000 [139]EM[178]1[167][141]1700:[139]A$[178]"(null)"[176]A$[178]"N"[167][142]
6010 [159]15,DV,15:[159]1,DV,2,"CALENDAR."[170][201]([196](Y),4)[170]",L,"[170][199](66)
6020 [141]7500:[139]EN[177]0[167][141]7700:[160]1:[160]15:[142]
6030 R[178]367:[141]7600
6040 [141]7500:[139]EN[177]0[167][141]7700:[160]1:[160]15:[142]
6050 [158] ML[170]33:[151]204,1:[151]646,7:[158] ML[170]3:[151]214,11:[153]
6060 [153][163]14)"LIST(null)OADING STR$ATA":EM[178]0
6070 [129]X[178]1[164]366:M(X[171]1)[178]0:[151]MV,[165] LB(X):[151]MV[170]1,[165] HB(X)
6080 [158] ML[170]45:[130]:[141]7500:[158] ML[170]6
6090 [139]EM[177]0[167][141]7700
6100 [160]1:[160]15:EY[178]Y:[137]1400
6999 [143] SAVE YEAR
7000 [139]EY[179][177]Y[175]EM[178]1[167]7200
7005 [159]15,DV,15:[159]1,DV,2,"CALENDAR."[170][201]([196](Y),4)[170]",L,"[170][199](66)
7010 [141]7500:[139]EN[177]0[167][141]7700:[160]1:[160]15:[142]
7020 R[178]367:[141]7600
7030 [141]7500:[139]EN[177]0[175]EN[179][177]50[167][141]7700:[160]1:[160]15:[142]
7040 [139]EN[179][177]50[167]7100
7050 [151]204,1:[151]646,7:[158] ML[170]3:[151]214,11:[153]
7060 [153][163]11)"LISTLENREATING STR$ATA ASCILE":R[178]367:[141]7600:[141]7600
7070 [141]7500:[139]EN[177]1[175]EN[179][177]50[167][158] ML[170]6:[141]7700:[160]1:[160]15:[142]
7080 [152]1,[199](255);:[141]7500:[158] ML[170]6:[139]EN[178]0[167]7100
7090 [141]7700:[160]1:[160]15:[142]
7100 [151]204,1:[151]646,7:[158] ML[170]3:[151]214,11:[153]
7110 [153][163]14)"LIST(null)AVING STR$ATA"
7120 [129]X[178]1[164]366:[139]M(X[171]1)[178]1[167][151]MV,[165] LB(X):[151]MV[170]1,[165] HB(X):[158] ML[170]42
7130 [130]:[141]7500:[158] ML[170]6:[139]EN[177]0[167][141]7700:[160]1:[160]15:[142]
7140 [129]X[178]0[164]365:M(X)[178]0:[130]:EM[178]0:EY[178]Y:[160]1:[160]15:[142]
7199 [143] WRONG YEAR ERROR
7200 [151]204,1:[151]646,7:[158] ML[170]3:[151]214,10:[153]
7210 [153][163]11)"LIST(null)EAR"Y"UNEDITED":[153][163]11)"(null)EAR"EY"CHANGED!"
7220 [153][163]11)"(null)RESS (null)(null)ATNLENVALLIST/(null)VAL(null)(null)(null)(null)"
7230 [161]A$:[139]A$[179][177]" "[175]A$[179][177][199](13)[167]7230
7240 [158] ML[170]6:[142]
7499 [143] GET DISK STATUS
7500 [132]15,EN,ER$,TR,SC:[142]
7599 [143] POSITION TO REC R
7600 [152]15,"P"[170][199](98)[170][199]([165] LB(R))[170][199]([165] HB(R))[170][199](1):[142]
7699 [143] PRINT DISK ERROR
7700 [151]204,1:[151]646,7:[158] ML[170]3:[151]214,10:[153]
7710 [153][163]14)"FORSTR$ISK VALRROR!":[153][163]11)[200](ER$,18)
7720 [153][163]11)"LIST(null)RESS (null)(null)ATNLENVALLIST/(null)VAL(null)(null)(null)(null)"
7730 [161]A$:[139]A$[179][177]" "[175]A$[179][177][199](13)[167]7730
7740 [158] ML[170]6:[142]
7999 [143] EDIT DAY
8000 [139](EY[179][177]Y[175]EM[178]1)[167][141]1700:[139]A$[178]"(null)"[176]A$[178]"N"[167][142]
8010 [139]EY[179][177]Y[167][158] ML[170]33:[139]EM[178]1[167][129]X[178]0[164]365:M(X)[178]0:[130]
8020 EY[178]Y:EM[178]1:[151]MV,[165] LB(Y):[151]MV[170]1,[165] HB(Y):[151]MV[170]3,M:[151]MV[170]5,D
8030 [151]646,15:[158] ML[170]27
8040 [161]A$:[139]A$[179][177]""[167]8040
8050 [151]MV,[165] LB(Y):[151]MV[170]1,[165] HB(Y):[151]MV[170]3,M:[151]MV[170]5,D:[158] ML[170]24
8060 X[178][194](251)[170]256[172][194](252):M(X)[178]1:[137]1400
8099 [143] PRINT DEV #
8100 PD[178]PD[170]1:[139]PD[178]8[167]PD[178]4
8110 [151]214,18:[153]:[153][163]36)"LIST  CMDCMD"PD;
8120 [142]
8199 [143] DRIVE DEV #
8200 DV[178]DV[170]1:[139]DV[177]16[167]DV[178]8
8202 [159]2,DV,2:[160]2:[139]ST[179][177]0[167]8200
8210 [151]214,19:[153]:[153][163]35)"LIST   CMDCMDCMD"DV;
8220 [142]
8499 [143] SET DAY #
8500 [151]204,1:[151]646,7:[158] ML[170]3:[151]214,11:[153]
8505 [151]MV,[165] LB(Y):[151]MV[170]1,[165] HB(Y):[151]MV[170]3,M:[158] ML[170]21:X[178][194](780)
8510 [153][163]13)"LISTSTR$ATE (1";[171]1[172]X"CMDLIST):   ":PY[178]12:PX[178]25:LN[178]2:DT[178][171]1:NG[178][171]1
8520 [141]1505:C[178][181]([197](B$)):[158] ML[170]6
8530 [139]C[179]1[176]C[177]X[167][142]
8540 D[178]C:[137]3040
8999 [143] PRINT CAL
9000 [151]204,1:[151]646,7:[158] ML[170]3:[151]214,10:[153]
9010 [153][163]16)"LIST((null)LIST)ONTH":[153][163]19)"OR":[153][163]17)"((null)LIST)EAR"
9020 [161]MY$:[139]MY$[179][177]"M"[175]MY$[179][177]"(null)"[175]MY$[179][177]"Y"[175]MY$[179][177]"(null)"[167]9020
9030 [158] ML[170]6:[151]204,1:[151]646,7:[158] ML[170]3:[151]214,10:[153]
9040 [153][163]12)"LIST(PEEKLIST)LANK LENALENDAR":[153][163]19)"OR"
9050 [153][163]11)"(ATNLIST)PPOINTMENT LENAL."
9060 [161]BA$:[139]BA$[179][177]"B"[175]BA$[179][177]"PEEK"[175]BA$[179][177]"A"[175]BA$[179][177]"ATN"[167]9060
9070 [158] ML[170]6:BA[178][182](BA$[178]"A"[176]BA$[178]"ATN"):SD[178]D:SM[178]M:PY[178](MY$[178]"Y"[176]MY$[178]"(null)")
9080 NM[178]M:TM[178]M:[139]PY[167]NM[178]12:TM[178]1
9090 [129]M[178]TM[164]NM:[141]1400:[141]5100:[158] ML[170]48:[141]5000:[158] ML[170]51
9100 [151]204,1:[151]646,7:[158] ML[170]3:[151]214,10:[153]
9110 [153][163]16)"LIST(null)RINTING":[153]:[153][163]15[170]((10[171][195](MN$(M[171]1)))[173]2))MN$(M[171]1)
9120 [151]MV,[165] LB(Y):[151]MV[170]1,[165] HB(Y):[151]MV[170]3,M:[151]MV[170]7,BA
9130 [159]4,PD,7:[158] ML[170]36:[152]4,"";:[160] 4
9140 [158] ML[170]6:[130]:M[178]SM:D[178]SD:[137]1400
10000 [159]15,8,15,"S0:STAR CALENDAR":[160]15:[148]"STAR CALENDAR",8:[128]
40000 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]40030
40010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40030
40020 [130]:[153]"LOAD":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]646,[194](53281):[153]"LOADLOAD"[199](34)A$[199](34)","I
40040 [153]"RUN":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]